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>>>>>>>>>>>>>>>>>>>>>>>> > > >>>>>>>> 

> nodule: Utils.BI 
> 

> BANK 1 nODULE 
> 

> This fnoduie contains routines that are part of the main utility 

> module and that must be kept in Bank t. 

> PROCEDURE RBuf_To_Buf2 

> PROCEDURE Buf2_To_BBuf 

> PROCEDURE WrBuf_To_Buf2 

> PROCEDURE Buf2_To_i4rBuf 

> PROCEDURE RBuf.To^pr 

> PROCEDURE Spr_To_REuf 

> PROCEDURE WrBuf_To_Spr 

> PROCEDURE Spr_To_i4rBuf 

> PROCEDURE 2ero_RdBuf 

> PROCEDURE Zern_F!nt 

> FUNCTION 6etJC:yl_H_S< Phys i ca I B I ock ; 3 BVTES { !!rC;E } > : 

> Cqiinder : MORD { !!rC } 

> Head : BVTE { !rE > 

> Sector : BVTE { !rF } 

> FUNCTIOH GoodHdr : BOOLERN 

> Cylinder : yORD { !!rO ) 

> Head : BVTE { Ir2 } 

> Sector : SS-TE { !r3 > 

> PROCEDURE Blocknoye< Destination : PTR { !!r2 } 

> Source : PTR { HrO } 

> > 

> FUNCTION UpDate_Hdr : BOOLERN 

> FUNCTION Get_Type< DriverType : BVTE { !r8 } > : 

> BlockType : 3 BITS I ?rS/blts 3:1 > 

> BlockNuniber : 3 BVTES { lrC:E } 
> 

.LSTOFF 
.FIN 

.DO External 
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:>>>:>>>>>>>>>>>>>>>>> .^ >>>> > 



■i- ':- 'i- ^ '^ li- ' 



> 



Procedures : 

Ld_Stand_Stat { ino»-,«e standard status to output buffer } 

RBuf_To_£uf2 { moMe ReadBuffer to Buffer2 > 

Buf2_To_FlBuf { moye Buffer 2 to ReadBuffer } 

WrBuf_To_Buf2 { move WriteBuffer to Buffer2 > 

Buf2_To_14rBuf { moMe Buffer2 to Uri teBuffer } 

RBuf_To_Spr { moue ReadBuffer to Sparefirray ]• 

Spr_To_RBuf { move Sparefirray to ReadBuffer } 

ZeroJRdBuf { moue zeros to ReadBuffer } 

Inputs: { none > 



;> Outputs: 
; > 
;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> > 

.LSTOFF 

.FIN 



Buf2_To_RBuf: 



WrBuf_To_Buf2: 



Buf2_To-J4rBuf 



Spr_To_RBuf 



RBuf_To_5pr: 
X_To JSpr : 

i4rBuf_To_JSpr: 

R8uf_To_Buf2: 



X_To_Buf2: 

B-iloMS : 

Re turnJJec tor 

Spr_ToJ4r8uf: 



Zero_RdBuf : 



Zero-Fist : 



Zero_FLp : 



.DO 

.LSTON 
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.FIN 

Ld 
Ld 
Ld 
Ld 
Jr 



Ld 
Ld 

Call 

•Jr 

Ld 
Ld 
Ld 
Ld 

Lde 

fncai 



Internal 



lrO,«.HIBVTE. 
!r1, «.LOWBVTE. 
lr2,».HIBVTE. 
!r3,*.L0WBS'TE. 
BJIove 



Ld !rO,».H!BVTE. 

Ld lrt,«.L0!4BVTE. 

Jr X_To_Buf2 



Buf2flrray 
Buf2Rrray 

ROummy 
RDuiRffiU 



: WBuffert-1 > 
< UBuffer1-1 > 



Ld lrO,#.HfBVTE. Buf2flrrciy 

Ld !r1,«.L0tJBVTE. Buf2flrray 

Ld !r2,#.HIBVTE. ( ^Buffer 1-1 > 

Ld !rS,«.LOWBVTE. < WBuffer 1-1 > 

Jr B-Hoye 



Ld !rO,«.HIBVTE. SpareRrray 

Ld !rL«.LOWBVTE. SpareRrray 

Ld ir2,«.HIBVTE. RBufferl 

Ld !r3,«.L0WByTE. RBufferl 

Jr B_i1oye 

Ld !rO,«.HieYtE. RBufferl 

Ld !r1,».LOI4BS^TE. RBufferl 

Ld !r2,«.HfBVTE. SpareRrray 

Ld !r3,«.L0WBS^TE. SpareRrray 

Jr B_MoMe 

Ld !rO,«.H!BVTE. MBufferl 

Ld !r1.«.L0MBVTE. WBuffer 1 

Jr X_To_Spr 

Cp DataType^*User_Type ;nop 

Jr Nz , Re turn_Uec tor 

Ld lrO.«.HIB¥TE. ROummy 

Ld lr1.«.L0WBSTE. RDufflmy 

Ld ?r2,«.HJBVTE. Buf2firray 

Ld !r3,*.L0{4BVTE. Buf2flrray 

Cal! Bfocknoue 

Jp BankJRet 

Ld !rO,#.HfBVTE. SpareRrray 

Ld !r1.#.L0WBVTE. SpareRrray 

Ld !r2,#.HIBVTE. MBufferl 

Ld !r3,#.L0WBVTE. NBufferl 

Jr- B-llove 



if spare table data 



!r2,«.HIByTE. Readflrraq 

!r3,«.L0WBVTE. Readflrray 

ZeroBlock 

Re turn-Uec tor 

!r2.«.HlBVTE. ReadRrraq 
\ r3 , « . LOWBVTE . ReadRrray 
!rE..».HfBVTE. < FBufferl - ReadRrray 
?rO.*0 ;init block to pattern 
§!!r2, !rO 
!!r2 





Dec 


IrE 




Jr 


Nz,Zero_FIp 




Ld 


!r2,«.HlBVTE. FBufferl 




Ld 


{r3,».L0WBVTE. FBufferl 




Ld 


lr-E,«.HIBVTE. ( FEndGap - FBufferl ) 




Ld 


!rF,«.L014BVTE. < FEndGap - FBufferl > 




Ld 


!rO,«$C6 ;init block to pattern 


Zero^Lp 1 : 


Lde 


e!lr2, !rO 




(new 


!!r2 




Decw 


!!rE 




Jr 


Hz,2ero_Flp1 




Jp 


Re tur n_Uec tor 
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• > > >>>>>>>> 


>>>>>>>>>>>> 


>>>>>>>>>>> 



Function: GetJCyl_HJS ■( Get Cylinder, Head, and Sector } 

This routine extracts the cylinder, head, and sector information 

from a physical block number. 



?npyts: 



Outputs: 



Phqs i ca I B I ockHumber 



r-r. : h 



H i Cy li nder 
LoCy I i nder 
Head 
Sector 



BVTE { !rC } 

BVTE { !rD > 

BVTE { IrE } 

SVTE { IrF > 



>>>>>>>>>>>>>>>> .^ > > > > > > > >> > >>>> 
.LSTOFF 
-Firi 

-DO Interna! 
.LSTOH 
-Page 
.FIH 



6etJCul-H-S: 



Call 

Push 
Push 

Call 

Ld 
Ld 

Pop 
Pop 

Ld 



DiMHdsSctrs 

!rO 
!r1 

DivSctrs 

IrF.frS 
!rEJr2 
IrD 
IrC 

PSectcr, IrF 

Bank_Ret 



.LSTOFF 

.DO Externol 
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; return Cylinder *, remainder = !r0:3 
;get ready to pass results to caller 

; re turn sjijith !r1 = Head, !r2 = Sector 

Sector 

Head 

Lo Cy i i nd^r 

Hi Cy I i nder 

jUpDate physical sector 



> Function: UpDateJCurJCy! 
> 

> This function is responsible for reading tiie header off of 

> an arbitrary sector. The cylinder information is extracted 

> from the header and placed into the current cylinder memory 

> locations. 
> 

> Inputs: { none > 
> 

> Outputs: 

> UpDateJCurJCy I : BOOLEfifl { Zero flag is set If HOTC ReadHdr > > 

> Global Uariables Changed: 

> CurjCylinder 

> fl I gor I thm : 

> 

> BEGIN 

> Temp := GoodHdrC ReadHdr > 

> IF Temp 

> THEN Cur_Cy I inder := ReadHdr . Cy I i nder 

> UpDate_CurJL:yl := Temp 

> END 





.LSTOFF 






.FFfi 






.DO 


Internal 




.LSTOf'f 
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.FIN 




UpDateJCurJCy 1 : 








Call 


OoodHdr 




Jr 


Z,UDJCJC_£nd 




Ld 


CurJCyl, !rO 




Ld 


Cur_l:yl + 1^1r 




Or 


Ir1,»01 


UDjC C Fnd: 


dp 
.LSTOFF 


Bank_Ret 




.00 
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•>>>>>>>>>>>>>> 


>>>>>>>> 


>>>>>>>>>> 



; re turn non-zero status 



> Function: OoodHdr 
> 

> This function Is responsible for reading a header off of a 

> sector and checking that header for ua lidlty. i.e.^ whether 

:» the cy I I nder J, head, and sector < and their complements > look 

> reasonable. 

> ■ 

y Inputs: { none } 

> Outputs: 

> OoodHdr : BOOLERN { Zero flag Is set if Header InMolid } 

> OoodHdr. Cylinder : WORD { ! IrO } 

> OoodHdr. Head : BVTE { !r2 ) 

> OoodHdr. Sec tor : BYTE { Ir3 } 



fi I gor i thffi : 

BEGIH 
ReadHdr 
IF < Inverse < ReadHdr. Cy I inder > = ReadHdr . I nverseCy I i nder ) AND 

< lnMerse< ReadHdr. HdSctr ) = ReadHdr. InverseHdSctr ) 
THEN 

GoodHdr := True 

GoodHdr . Cy I i nder : = ReadHdr . Cy I i nder 
GoodHdr. Head := ReadHdr. HdSctr /bits 7:6 
GoodHdr. Sec tor := ReadHdr. HdSctr /bits 5:0 



ELSE 



END 



■i- 'i- *^ >■ 'i- ■!:- ■^^ ^ " 



GoodHdr := False 



>>>>>> > > > >>>> > > > 

.LSTOFF 

.FIN 

.DO Internal 

.LSTON 

-Poqe 



.FIN 



GoodHdr : 



GdHdr_1: 



Ld ! r4 , *8 ; try hord to r^ad a good header 
Can ReadHdr 



GdHdr_Lp: 



Ld !r2.*.HIBVTE. RHHeader 

Ld lr3,«.L0NBS^TE. RHHeader 

Ld lrO,»ScrRegO 

Ld !r1..*5 ; load 6 bytes 

Ldei g!r0.§llr-2 

Ojnz ?r1, GdHdr_Lp 

Srp *l4rk_Scr ; context siMitch 

Xor ?r3. !rO ; check for valid header 

Xor !r4, !rt 

Xor !r5, !r2 

Hnd !r3,!r4 

find !r3, Ir5 

Com ! r3 

Srp *Wrk_Sys ; con text sjyitch 

Cfr ScrReg5 ; assume bad header 

Jr Z,6dHdr_2 

TfTi Excpt_Stat.»Recoyery ; check for Recovery on 

Jr Z,GdHdr_End 

Call ChkOffJioOff ;s-et auto_jDffset if not already on 

Ld ! r2 . * . H I BYTE . 10; wa It 100 ms be fore re try 1 ng 

Ld !r3>.LOI4BVTE. 10 

Call MsMait 



Ojnz !r4,GdHdr_1 ; retry if bad header 
Jr GdHdr_£nd 



GdHdr_2: 



GdHdr_End: 



Ld ! rO J. ScrRegO ; GoodHdr . Cy I j nder : = ReadHdr . Cy I i nder 

Ld !rt,ScrReg1 

Ld !r2,ScrReg2 ; GoodHdr . Head := ReadHdr.HdSctr/bi ts ?:6 

Smap !r2 

Rr !r-2 

Rr !r2 

find !r2,*$03 ;just leave head info in register 

Ld {r3,3crReg2 ; GoodHdr. Sec tor := ReadHdr.HdSctr/bi ts 5:0 

Rnd lr3,»$3F 

Ld ScrReg6,*1 

Or ScrRegS, ScrRegS ;set zero flag 

Jp Bank__Ret 



.LSTOFF 

.00 External 
-LSTOH 
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;>>>>>>>>>>. ^ .^ >>>>>>>> >>>.^.^ >>.!>■>>>>> 

; > Procedure : B I ockMove 
• ■> 

p This procedure performs the foi loming: 
;> < Etestination > < — ( Source > 



Where destination and source ar^ both the same size ( nQ!?isly 
exactly 332 bytes plus CRC Qn*:! ECC ?. 



Inputs: 



Destination : PTR { ! !r2 } 
Source : PTR { i IrO > 



Outputs: { none ) 



;>>>>>>>>>>> 


>>>>>>>>>>> 
.LSTOFF 
.FIH 


>>>>>>>>>>> 




.DO 


Internal 
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.FIN 




B 1 ockfloMe : 








Call 


Ext_Push 




Ld 


lr4,«.HIBS'TI 




Ld 


!r5,».L0UBV 


BIkJIoMe: 


Lde 


Ir6,§! !rO 




Lde 


§H.r2.lr5 




Inc'JiJ 


MrO 




1 ncui 


!lr2 




Oecw 


\\r4 




Jr 


Nz,Blk.J1oye 




Call 


Ext_Pop 




Bet 






.LSTOFF 
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> 

> Function: UpDate_Hdr { UpDate Header- } 



• > 

;> This function is responsible for comparing the header information 

;> \n the buffer < it \s assumed that a ReadHdr operation has just 

j> been performed and that the header Info is currently residing in 

;> the Re<3dHdr buffer space ) to that of the global cylinder variable. 

;> If the two do not match j, then CurJCyl is updated to reflect the 

;> ReadHdr operations findings and the function returns a False 

;> value indicating that a seek \s \ri order. 

;> Inputs: { none ) 

■ ;> 

;> Outputs: 

;> UpDate_Hdr : BOOLEAN { zero flag is true if off- track } 

• \ 

;> Global Uariables Used: 
; > Cy I i nder 

■ > 

;> Global Uariables Changed: 
;> On_Trackj. CurjCyl 

; > R I gor i thm : 

;> BEGIN 

;> OiskStatus.On_Track := False 

•> IF OoodHdr 

;> THEM 

;> iF < RHHeader . Cy I i nder <> Cylinder > 

;> THEH 

; '• Cur_Cy I : = RHHeader . Cy i i nder 

:> On_Track := False 

";> UpOats-Hdr := False 

; > ELSE 

;> UpDate_Hdr := True 

;> i skStatus . On_Track := True 

";> END 

• > > > > > > > > > > > >>>>>>>>>>>>>>>>>>>>> 
.LSTOFF 
.FIH 

.00 internal 
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UpDate_Hdr: 

Call Ext_Push 

find D f skStatus^ «$FF-On_Track 

Call GoodHdr 

Jr Z,UpDt-Recaf 

UpOa te J3nTrck : Ld Cur jCy I J rO ; Cur_Cy I : = RHHeader . Cy I i ndm-- 

Ld Cur_Cyl-f-t, !r1 

Xor IrO.Cyl inder ; check for correct cylinder Gddr^ss 

Xor Irl.Cylinder+l 

Or !rO^. Irt 

Ld \ rO^ *0 ; assume fa i I ure 

Jr Nz, UpDate JErr 





Or- 


i skS tatus, #On_Track 




Ld 


!rO,*1 


UpDate_Err: 


Or 


IrOJrO 


UpDate_H_End: 


Push 


Flags 




Call 


Ext_Pop 




Pop 


F 1 ags 




Jp 


Barik_Ret 


UpDt-Recal: 


Ld 


lrO,«DataRecal 




Call 


Restore 




Ld 


!rO,«0 




Jr 


UpDate Frr 
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• > > > > > > > > > > > > > : 


>>>>>>>> 


>>>>>>>>>>>>> 



Func t i on : 6e t_Type 

Th i s fijortc I j on is respons ibis for conver t i ng Pro f i I a-s ty i e 
requests for the spare toble ard i.d. blocks into Uidgst 

types and blocknuisbers.- Get_Typs also -performs a - bounds - check 
on the b I ockriuffiber . 



Inputs: 



Outputs: 



Or i verType 



: BS^TE { \rB } 



BlockTupe : BYTE f !r8 ) 
BlockNufiiber : 3 BVTES { !rC;E } 



R I gor I thffi ; 

BEOfH 
BlockNumber := LogicalBlock 
IF < DriMerlype = Prof i la > 
THEN 

CfiSE Log i ca I B I ockHumber OF 

FFFFFF : BlockType := Sparelable 
BlockNumber := 1 

FFFFFE : BlockType := ID 
BlockNumber := 1 

OTHERWISE Type := Data 

ELSE Type := Data 

IF < BlockHumber > flaxLoq i ca I B I ockHumber > 
THEN Rbort 
END 

■>>>>>>>>>>>>>>>>>.>•>>>>>>> > > > > >>>>.> 
.LSTOFF 
.FIN 

.DO irsternal 
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Get-Type: 



.FIN 



Ca I ! Load-Log i ca I 

Ld !rO, !r8 

Ld I rS . «User_Type 

Or IrOJrO ; IF < Driyer_Type = Profile > 

Jr Nz , Ge t_Type-Check 

Ld !rO,«$FF .IF BlockNumber = $-2... 

Ld !r1.«$FF 

Ld !r2,«$FE 

Call Sub3 ; compare 

Or i.rOJrl 

Or !r0.lr2 

Jr N2/3-T_ChkiD 

Ld !r8,»Sprtbl_Type 



G_T_ProCnurt: 


Clr 


IrC 




CIr 


!rO 




Ld 


!rE,«1 




Jr 


OetJfyps-jCheck 


G_T_ChklD: 


Ld 


!rO,«$FF ;IF BlockNufflber = »$-1.. 




Ld 


!r]>$FF 




Ld 


ir2.*$FF 




Call 


Sub3 ; compare 




Or 


IrOJrl 




Or 


(rO, fr2 




Jr 


Hz . 6et_Type_Check 




Ld 


!r8,#ID_Type 




Jr 


G_T_F'roCnvrt 


Get-TypeJCtteck : 


Ld 


!rO,«HirtaxLog}cai .; IF < BlockNumb 




Ld 


! r 1 , *M i dHaxLog i cq 1 




Ld 


! r2, »LcMaxLog i ca 1 




Call 


Subo ;cofl4pare 




Jr 


Uge, Get-Type-End 




Ld 


!r0.«2 :byte 2 




Ld 


fri, »ll legal-Block 




Call 


SetStatus 




Call 


Abort 


Get Type Fnd: 


Jp 
.LSTOFF 


Bank-Ret 



MaxLoq i ca I > . 



